home *** CD-ROM | disk | FTP | other *** search
Wrap
/*****************************/ /*Delete Eloquent */ /***************************/ arg ELOQ_PTH '@echo off' ELOQ_DRIVE=substr(ELOQ_PTH,1,2) /*Load up the REXX code*/ call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs' call SysLoadFuncs ELOQ_PTH'ELOQOS2\pmmsgbox W;OK;Cancel;;Confirm Delete;Delete Eloquent;All Eloquent files and directories will be deleted. Click OK if this is what you want to do. Otherwise, click Cancel. \\\POS CC DEL ;' if substr(rc,1,1)=2 then exit ; else do /*Create a YES.DAT file for use during the delete operation*/ 'echo Y>c:\yes.dat' /*Delete everything*/ ELOQ_DRIVE 'cd \' 'del 'ELOQ_PTH'system\vdkhome\style\*.*<c:\yes.dat>NUL' 'rd 'ELOQ_PTH'system\vdkhome\style' 'del 'ELOQ_PTH'system\vdkhome\legacy\*.*<c:\yes.dat>NUL' 'rd 'ELOQ_PTH'system\vdkhome\legacy' 'del 'ELOQ_PTH'system\vdkhome\english\*.*<c:\yes.dat>NUL' 'rd 'ELOQ_PTH'system\vdkhome\english' 'del 'ELOQ_PTH'system\vdkhome\*.*<c:\yes.dat>NUL' 'rd 'ELOQ_PTH'system\vdkhome' 'rd 'ELOQ_PTH'system' 'del 'ELOQ_PTH'player16\*.*<c:\yes.dat>NUL' 'rd 'ELOQ_PTH'player16' 'del 'ELOQ_PTH'eloqos2\*.*<c:\yes.dat>NUL' 'rd 'ELOQ_PTH'eloqos2' if length(ELOQ_PTH)>3 then 'rd 'substr(ELOQ_PTH,1,length(ELOQ_PTH) -1) 'del c:\yes.dat>NUL' /*Destroy the folder*/ rc=SysDestroyObject('<ELOQUENT_FLDR>') end